home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 06 / alib / rewind.asm < prev    next >
Assembly Source File  |  1991-06-25  |  287b  |  25 lines
  1.     include    asm.inc
  2.  
  3.     public    rewind
  4.  
  5.     .code
  6.     extn    ms_dos_strerror
  7.  
  8. ;;    rewind
  9. ;
  10. ;    entry    BX    file handle
  11. ;    exit    Cf    if error
  12. ;    uses    AX
  13. ;
  14. rewind    proc
  15.     pushm    cx,dx
  16.     mov    ax,4200h        ; rewind file
  17.     xor    cx,cx
  18.     xor    dx,dx
  19.     call    ms_dos_strerror
  20.     popm    dx,cx
  21.     ret
  22. rewind    endp
  23.  
  24.     end
  25.